home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 3 / ACE CD 3.iso / files / utils / wworth53.dms / in.adf / Archive / WwRexx.lha / Save_Block.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-02-09  |  354 b   |  32 lines
  1. /*    Save_Block
  2.  
  3.         Saves selected block of text.
  4.  
  5.         Digita ARexx Script for Wordworth 5
  6.         Copyright ©1996, Digita International Ltd.
  7.         
  8.         Created: 19 January 1996
  9.         Author:  MJ
  10. */
  11.  
  12.  
  13. OPTIONS RESULTS
  14.  
  15.  
  16. Copy
  17.  
  18. RequestFile TITLE "Save Selected Block to File"
  19. File = Result
  20.  
  21. IF (RC > 0) THEN
  22.     Exit
  23.  
  24. New
  25. Address Value Result
  26.  
  27. Paste
  28.  
  29. SaveAs NAME File
  30.  
  31. Close FORCE
  32.